home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 201
/
201.d81
/
b.arc baseball
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
9KB
|
178 lines
10 poke56,48:poke55,0:clr:gosub780
15 dv=peek(186):ifdv<8thendv=8
16 poke1023,dv
20 print""spc(14)chr$(14)"[151][208]lease [215]ait[145][145][145][145][145][145][145][145]"
30 fora=49152to49999:readb:pokea,b:c=c+b:next
40 ifc<>104062thenprint"[147]data error":stop
50 data 173,4,220,141,166,3,169,18,141,5,212,169,100,141,1,212,169,0,133
60 data 187,133,188,133,189,173,30,208,32,199,192,169,0,141,167,3,32,85,193
70 data 32,15,194,32,254,194,32,182,194,32,15,194,173,120,3,201,250,208,8
80 data 169,0,141,162,3,76,152,192,174,167,3,208,114,201,76,176,220,201,69
90 data 144,216,169,27,141,163,3,169,37,141,164,3,162,7,173,100,3,205,163
100 data 3,144,8,205,164,3,176,3,76,38,192,173,163,3,24,105,24,141,163
110 data 3,173,164,3,24,105,24,141,164,3,202,16,219,169,2,141,21,208,173
120 data 100,3,56,233,9,162,255,232,56,233,24,176,250,189,175,192,141,162,3
130 data 120,169,240,141,26,208,169,49,141,20,3,169,234,141,21,3,169,129,141
140 data 13,220,88,96,1,5,2,5,3,5,2,5,1,201,30,240,3,76,38
150 data 192,169,4,141,162,3,76,152,192,169,2,141,21,208,169,1,141,28,208
160 data 160,7,169,0,153,110,3,136,16,248,169,90,141,101,3,169,230,141,121
170 data 3,169,227,141,131,3,169,0,141,40,208,169,12,141,37,208,169,11,141
180 data 38,208,169,127,141,13,220,169,214,141,20,3,169,193,141,21,3,169,27
190 data 141,17,208,169,129,141,26,208,169,250,141,18,208,169,117,141,100,3,169
200 data 130,141,120,3,169,129,141,26,208,96,165,187,208,26,169,127,141,0,220
210 data 169,0,141,1,220,173,1,220,201,239,240,1,96,165,189,208,14,230,187
220 data 230,189,238,101,3,173,101,3,201,145,240,1,96,169,0,133,187,96,173
230 data 165,3,240,24,169,0,133,162,32,189,193,41,63,9,64,197,162,208,252
240 data 32,189,193,41,3,170,76,147,193,169,255,141,0,220,169,0,141,1,220
250 data 169,254,141,0,220,173,1,220,201,248,176,234,73,255,74,74,74,162,255
260 data 232,74,144,252,134,2,189,206,193,133,5,189,210,193,133,6,189,202,193
270 data 133,253,169,0,133,254,169,20,133,248,169,224,141,130,3,169,0,133,251
280 data 133,252,169,3,141,21,208,96,173,166,3,10,10,56,109,166,3,141,166
290 data 3,96,200,250,180,200,5,0,0,248,0,0,0,255,169,1,141,25,208
300 data 169,0,133,3,160,7,162,14,185,100,3,157,0,208,185,120,3,157,1
310 data 208,185,110,3,10,102,3,185,130,3,153,248,7,202,202,136,16,227,165
320 data 3,141,16,208,169,250,141,18,208,230,162,76,188,254,198,247,240,1,96
330 data 169,90,133,247,32,39,193,165,253,24,109,140,3,141,140,3,173,120,3
340 data 101,254,141,120,3,174,167,3,208,26,201,66,208,22,169,0,133,254,169
350 data 50,133,253,165,252,48,6,169,60,133,251,208,4,169,190,133,251,173,150
360 data 3,24,101,251,141,150,3,173,100,3,101,252,141,100,3,201,16,240,4
370 data 201,217,208,17,165,251,73,255,24,105,1,133,251,165,252,73,255,105,0
380 data 133,252,198,248,208,60,169,20,133,248,165,251,24,101,5,133,251,165,252
390 data 101,6,133,252,165,254,16,21,173,130,3,201,224,240,6,206,130,3,76
400 data 181,194,169,226,141,130,3,76,181,194,173,130,3,201,226,240,6,238,130
410 data 3,76,181,194,169,224,141,130,3,96,165,188,208,67,173,30,208,41,3
420 data 201,3,208,58,169,0,133,5,133,6,230,188,173,100,3,56,237,101,3
430 data 24,105,15,16,2,169,0,201,28,144,2,169,27,10,170,189,22,195,133
440 data 251,189,23,195,133,252,169,128,141,4,212,169,129,141,4,212,169,255,133
450 data 254,169,120,133,253,96,173,120,3,201,120,208,16,173,100,3,201,113,144
460 data 9,201,121,176,5,169,1,141,167,3,96,64,255,87,255,100,255,113,255
470 data 126,255,139,255,152,255,165,255,188,255,201,255,214,255,227,255,240
480 data 255,0,0,0,0,16,0,29,0,42,0,55,0,68,0,91,0,104,0,117,0
490 data 130,0,143,0,156,0,169,0,192,0,192,0
500 ml$="[162]"+chr$(8)+"[189]<"+chr$(3)+"[149]x[202]"+chr$(16)+chr$(248)+"l[191][163]":poke835,0
510 poke836,208:poke830,0:poke831,216:poke828,0:poke829,56:poke56334,0
520 poke1,51:ml$=ml$:sys(peek(51)+256*peek(52)):poke1,55:poke56334,1
530 fori=12568to12671:readj:pokei,255-j:next
540 fori=12672to12727:readj:pokei,j:next
550 data 0,115,219,219,219,219,113,0,0,111,102,102,102,102,198,0
560 data 149,149,149,149,165,170,170,170,86,86,86,86,90,170,170,170
570 data 170,170,170,165,149,149,149,149,170,170,170,90,86,86,86,86
580 data 130,130,130,130,130,170,170,170,128,0,0,0,0,0,0,0
590 data 255,255,255,126,060,024,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
600 data 0,0,0,0,0,0,0,128,255,255,255,126,60,24,0,0,213,213,245,245,253,253
610 data 255,255,87,87,95,95,127,127,255,255,125,125,125,125,125,125,125,125
620 data 126,255,255,255,255,255,255,255,255,255,255,255,255,255,255,126
630 data 127,255,255,255,255,255,255,127,254,255,255,255,255,255,255,254
640 q=14336
650 readb:ifb<0thenfora=1toabs(b):pokeq,0:q=q+1:next:goto650
660 ifb=256thenff=1:goto730
670 pokeq,b:q=q+1:goto650
680 data -25,60,0,0,255,0,0,85,0,0,85,0,0,20,-51,20,0,0,255,0,0,255,0,0,85,0,0
690 data 20,-51,20,0,0,85,0,0,85,0,0,255,0,0,60,-66,255,0,7,255,224,31,255,248
700 data 63,255,252,127,255,254,127,255,254,255,255,255,255,255,255,239,256
710 data 129,0,0,0,0,0,0,0,0,0,0,0,0,0,0,129
720 data 128,0,0,0,0,0,0,128,1,0,0,0,0,0,0,1
730 poke53272,23:poke53270,200
740 cl(1)=10:cl(2)=14:fl=0:rm=20:pl=2
750 fora=54272to54295:pokea,0:next:pokea,15:poke54280,17:poke54284,18
760 in=1:sk=0:ck=0:p1$="home":p2$="visitor":gosub770:goto860
770 ifff=1thenreturn
780 print"[147]"spc(6);:poke53281,0:poke53280,0
790 print"[190][188][146] [161][172][187][146][187] [172][172][187][146][187] [190][188][146] [161][172][188][146] [161][172][162][146][190]"spc(11)"[161][188][190][146][161] [161][188][190][146][190] [161]";
800 print"[146][161] [161][188][190][146][161] [161][146][161][161][146][161] [161][188][146][187]"spc(12)"[161][146][161][161][146][161] [161][172][188][146] [161][146][161][172][187] [161][146][161][161][146][161]";
810 print" [161][146][161][190][146][190] [161][146][161]"spc(13)"[188][190][188][190] [188][190][188][190] [162][162][146] [188][190][188][190] [188][162][146][190] [188][162][162][146][190]"spc(9);
820 print" [161][172][187][146][187] [190][188][146] [172][172][187][146][187][161][172][162][146][190][161][172][187][146][187] [190][188][146] [161][146][161] [161][146][161]"spc(10)"[161][188][190][146][190][161]";
830 print"[188][190][146][161][188][188][146][162] [161][188][146][187] [161][188][190][146][190][161][188][190][146][161][161][146][161] [161][146][161]"spc(10)"[161][146][161][161][146][161][161][146][161][161][146][161][172][187]";
840 print"[161][146][161][161][146][161] [161][146][161][161][146][161][161][146][161][161][146][161][161][146][161] [161][146][161]"spc(10)"[188][162][162][146] [188][190][188][190] [162][162][146] [188][162][162]";
850 print"[146][190][188][162][162][146] [188][190][188][190][188][162][162][146][190][188][162][162][146][190]":return
860 printchr$(14)""spc(12)"[129][208]ractice [198]1":printspc(12)"[208]lay [198]7"
865 printspc(12)" ":printspc(12)"[209]uit [209][145]"
870 poke198,0:wait198,1:getmt$:ifmt$<>"[133]"andmt$<>"[136]"andmt$<>"q"then870
875 ifmt$="q"then2000
880 ifmt$="[133]"thenfl=1:in$="1":goto920
890 c$=" ":printchr$(142)"[145][145][145][145]"spc(12)c$:print""spc(12)c$"[145][145][145][145]"
900 printspc(12)"1[146] or 2[146] players"
905 printspc(12)c$
910 poke198,0:wait198,1:getin$:ifin$=""orin$<"1"orin$>"2"then910
920 np=val(in$):poke933,-(np=1):print"[147]";:poke53280,2:poke53281,1:te=6:b$=""
930 poke53272,28:poke53282,3:poke53283,0:poke53270,peek(53270)or16
940 w=1063:pokew,160:a$=" [146]"
950 pokew+54272,6:c$="[159] ":d$=" "
960 foru=1to2:fori=1to12:printc$;:poke646,te:printd$:sm=w+40*i:pokesm,160
970 pokesm+54272,te:nexti:te=5:w=1543:nextu:printc$""d$""
980 print""spc(27)" ":poke1543,160:poke55815,2
990 print"1b [146]#$ 2b [146]#$ 3b [146]#$ 2b [146]#$ 1b"
1000 print"[150]'('('('('('('('('(":print"%&%&%&%&%&%&%&%&%&"
1010 print""spc(12)" [157][157] [157][157] ":print"[153][150]0"spc(24)"1":y=24
1020 x=1:fori=1to6:forz=1tox:b$=b$+a$:nextz:printb$"0";:printtab(y)"1"b$:b$=""
1030 y=y-1:x=x+1:nexti:print" [146]0"spc(10)"1